home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr47 / shwtxt16.zip / USA.ST < prev    next >
Text File  |  1994-10-11  |  503b  |  11 lines
  1. ON INTKEY0 ESC GOTO QUIT\CLS 7,0\COPY(USA,1)\BFILL 0 (1,1,25,1)219 14
  2. FOR V1=0 TO 24\V2=25-V1\BCOPY 1TO0(1,1,25,80)(V2,1)\WAIT .1\NEXT V1
  3. WAIT 1.5\COLOR 1,4\WINDOW(22,30,25,50)104\COLOR 15,2\WINDOW(23,31,24,49)32
  4. P@ 23,31\PRINT "  S H O W T E X T  "\COLOR 31
  5. P@ 24,31\PRINT " Made in the U.S.A.";\COLOR 15,0\SCREENSAVER 1
  6. :LOOP\WAITKEY 0\IF NOT KEY NULL QUIT
  7. SCROLL DOWN(1,2,18,80)\FOR V1=2 TO 80\V2=V1/4\V2=[X]\IF V2<>0 CONT
  8. WAIT .09
  9. :CONT\SCROLL UP(1,V1,18,V1)\NEXT V1\GOTO LOOP
  10. :QUIT\EXITC
  11.